home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / comm / cnet / cnet_toolkit.lha / routines / SYSOLM < prev    next >
Text File  |  1997-04-05  |  484b  |  10 lines
  1. SENDOLM:;parse arg text;getuser 2307346;path=result;z="00"x;a="";v1=""
  2.   if exists(path"_olm"port) then a="a";name=path"_"a"olm"
  3.   a="w";t=0;if exists(name) then a="a";if cv=4 then v1=d2c(uid,4)
  4.   h=v1||left(handle,26,z)copies(z,28)text"0A1A0A"x;n=name||port
  5.   if cv=3 then h=overlay(d2c(1),h,31,1)
  6.   call forbid();call open(f1,n,a);call writeln(f1,h);call close(f1)
  7.   call permit();setobject "0";putuser 1409746
  8.   getuser 1101743;olm=result+1;setobject olm;putuser 1101743  
  9.  return
  10.